home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4.zip / Atari Forever 4.iso / SERIE_DM / DM_163 / DM_163.MSA / VECTOR.S < prev   
Text File  |  1987-04-22  |  16KB  |  722 lines
  1. * START UPP RUTIN
  2.  
  3. PROG    PEA     INITUNE
  4.         MOVE.W  #$26,-(A7)
  5.         TRAP    #14
  6.         ADDQ.L  #6,A7
  7.  
  8.         CLR.L   -(SP)
  9.         MOVE.W  #$20,-(SP)
  10.         TRAP    #1
  11.         ADDQ.L  #6,SP
  12.         MOVE.L  D0,SAVE_USP
  13.  
  14.         BCLR    #0,$484
  15.         BCLR    #1,$484
  16.  
  17.         JSR     CREAT_VBI
  18.  
  19. IGEN
  20.     MOVE.W  #7,-(SP)
  21.         TRAP    #1
  22.         ADDQ.L  #2,SP
  23.  
  24.         CMP.W   #$20,D0
  25.         BNE     IGEN
  26.                  
  27.         BSR     YMOFF
  28.  
  29.         BSET    #0,$484
  30.         BSET    #1,$484
  31.         MOVE.W  #$2700,SR
  32.         MOVE.L  SAVE_VBI,A0
  33.         MOVE.L  #$0,(A0)
  34.         MOVE.W  #$2300,SR
  35.         
  36.         MOVE.L  SAVE_USP,-(A7)
  37.         MOVE.W  #$20,-(SP)
  38.         TRAP    #1
  39.         ADDQ.L  #6,SP
  40.  
  41.         CLR.W   -(SP)
  42.         TRAP    #1
  43.         ADDQ.L  #2,SP
  44.  
  45. CREAT_VBI
  46.         LEA     MUSIC50,A0
  47.         MOVE.L  A0,D1
  48.         MOVEA.L $456.W,A0
  49. LABEL1  TST.L   (A0)
  50.         BEQ     LABEL2
  51.         ADDA.W  #4,A0
  52.         BRA     LABEL1
  53. LABEL2  MOVE.L  A0,SAVE_VBI
  54.         MOVE.L  D1,(A0)
  55.         RTS
  56.  
  57. * Reset All YM-2149 Registers And turn off channels
  58.  
  59. YMOFF
  60.         LEA     $FF8800,A6
  61.         MOVE.W  #13,D0
  62.         MOVE.B  #7,(A6)
  63.         MOVE.B  #$FF,2(A6)
  64. INITLOOP
  65.         MOVE.B  D0,(A6)
  66.         MOVE.B  #0,2(A6)
  67.         DBRA    D0,INITLOOP
  68.         MOVE.B  #6,(A6)
  69.         MOVE.B  #50,2(A6)
  70.         MOVE.B  #7,(A6)
  71.         MOVE.B  #216,2(A6)
  72.         RTS
  73.  
  74. SAVE_VBI
  75.         DS.L    1
  76. SAVE_USP        
  77.         DS.L    1
  78.  
  79.  
  80. * MUSIK RUTINER
  81.  
  82. INITUNE CLR.B   MONOFF
  83.         LEA     STADS,A0
  84.         LEA     CHAN_A,A1
  85.         MOVEQ   #2,D7
  86. INITIAL MOVE.B  #1,$1B(A1)
  87.         CLR.B   0(A1)
  88.         CLR.B   $2C(A1)
  89.         MOVEA.L (A0)+,A2
  90.         MOVE.L  A2,6(A1)
  91.         MOVE.L  #4,$A(A1)
  92.         MOVE.L  (A2),2(A1)
  93.         ADDA.L  #$2E,A1
  94.         DBF     D7,INITIAL
  95.         MOVE.B  #1,NO_TT
  96.         MOVE.B  #1,MONOFF
  97.         RTS
  98. VSET    LEA     MUSIC50,A0
  99.         MOVEA.L $456,A1
  100.         ADDA.W  #4,A1
  101.         MOVE.L  A0,(A1)
  102.         RTS
  103.  
  104.  
  105. * DATA TABLE
  106.  
  107. CHAN_A  DC.B    0    * KONTROL REGISTER
  108.     DC.B    0
  109.     DC.L    0    * DEL MELODI PEKARE (A1PX)
  110.     DC.L    0    * MELODI PEKARE (TUNEA1)
  111.     DC.L    0
  112.     DC.W    0
  113.     DC.L    0
  114.     DC.L    0
  115.     DC.B    0
  116.     DC.B    0
  117.     DC.B    0
  118.     DC.B    0
  119.     DC.B    0
  120.     DC.B    0
  121.     DC.B    0    * VOLUME
  122.     DC.B    0
  123.     DC.L    0
  124.     DC.L    0
  125.     DC.B    0
  126.     DC.B    0
  127.     DC.B    0
  128.     DC.B    0
  129.     DC.B    0
  130.     DC.B    9    * BRUS KANAL 
  131.  
  132. CHAN_B  DC.B    0
  133.     DC.B    0
  134.     DC.L    0    
  135.     DC.L    0    
  136.     DC.L    0
  137.     DC.W    0
  138.     DC.L    0
  139.     DC.L    0
  140.     DC.B    0
  141.     DC.B    0
  142.     DC.B    0
  143.     DC.B    0
  144.     DC.B    0
  145.     DC.B    0
  146.     DC.B    0    
  147.     DC.B    0
  148.     DC.L    0
  149.     DC.L    0
  150.     DC.B    0
  151.     DC.B    0
  152.     DC.B    0
  153.     DC.B    0
  154.     DC.B    0
  155.     DC.B    $12
  156.  
  157. CHAN_C  DC.B    0
  158.     DC.B    0
  159.     DC.L    0
  160.     DC.L    0
  161.     DC.L    0
  162.     DC.W    0
  163.     DC.L    0
  164.     DC.L    0
  165.     DC.B    0
  166.     DC.B    0
  167.     DC.B    0
  168.     DC.B    0
  169.     DC.B    0
  170.     DC.B    0
  171.     DC.B    0
  172.     DC.B    0
  173.     DC.L    0
  174.     DC.L    0
  175.     DC.B    0
  176.     DC.B    0
  177.     DC.B    0
  178.     DC.B    0
  179.     DC.B    0
  180.     DC.B    $24
  181.  
  182. NO_TT   DC.B    0
  183. NO_T    DC.B    0
  184. NZ_F    DC.B    0
  185. NZ_FT   DC.B    0        * BRUS KANEL FREKVENS
  186. REG_7   DC.B    $FF
  187. FINET   DC.B    6        * VBI COUNTER
  188.  
  189. RET     RTS            * RETURN FROM SUB-RUTIN
  190.  
  191. MUSIC50 BTST    #1,$FF820A    * 50 ELLER 60 Hz
  192.         BNE     NOT60
  193.         SUBQ.B  #1,FINET
  194.         BNE     NOT60
  195.         MOVE.B  #6,FINET
  196.         BRA     RET
  197.  
  198. NOT60   TST.B   MONOFF        * 1 = Låt på, 0 = Låt av
  199.         BEQ     RET
  200.         MOVE.B  NZ_F,NZ_FT
  201.         SUBQ.B  #1,NO_TT
  202.         BNE     WALBOL
  203.         LEA     CHAN_A,A0
  204.         BSR     MZ_CH
  205.         LEA     CHAN_B,A0
  206.         BSR     MZ_CH
  207.         LEA     CHAN_C,A0
  208.         BSR     MZ_CH
  209.         MOVE.B  NO_T,NO_TT
  210.  
  211. WALBOL  LEA     CHAN_A,A0    * D0 = Tone, D1 = Volume
  212.         BSR     MZ_50
  213.         MOVE.W  D0,TEMPD0
  214.         MOVE.B  D0,REGS
  215.         MOVE.B  TEMPD0,(REGS+1)
  216.         MOVE.B  D1,(REGS+8)
  217.  
  218.         LEA     CHAN_B,A0    * D0 = Tone, D1 = Volume
  219.         BSR     MZ_50
  220.         MOVE.W  D0,TEMPD0
  221.         MOVE.B  D0,(REGS+2)
  222.         MOVE.B  TEMPD0,(REGS+3)
  223.         MOVE.B  D1,(REGS+9)
  224.  
  225.         LEA     CHAN_C,A0    * D0 = Tone, D1 = Volume
  226.         BSR     MZ_50
  227.         MOVE.W  D0,TEMPD0
  228.         MOVE.B  D0,(REGS+4)
  229.         MOVE.B  TEMPD0,(REGS+5)
  230.         MOVE.B  D1,(REGS+10)
  231.  
  232.         MOVE.B  NZ_FT,(REGS+6)    * BRUS FREKVENSEN
  233.  
  234.  
  235. * SKRIVER UT DATA FRÅN REGS PÅ LJUDCHIP
  236.  
  237. MZ_OUT  MOVE.B  #7,$FF8800    
  238.         MOVE.B  $FF8800,D0
  239.         ANDI.B  #$C0,D0
  240.         ANDI.B  #$3F,(REGS+7)
  241.         OR.B    D0,(REGS+7)
  242.         LEA     FREGS,A0
  243.         MOVE.W  #$C,D0
  244. OUTER   MOVE.B  D0,$FF8800
  245.         MOVE.B  -(A0),$FF8802
  246.         DBF     D0,OUTER
  247.         BRA     RET
  248.  
  249.  
  250. TURNOFF CLR.B   MONOFF
  251. CLR_REG MOVE.B  #7,$FF8800
  252.         MOVE.B  $FF8800,D1
  253.         ORI.B   #$3F,D1
  254.         MOVE.W  #$C,D0
  255. CLR_LP  MOVE.B  D0,$FF8800
  256.         MOVE.B  #0,$FF8802
  257.         DBF     D0,CLR_LP
  258.         MOVE.B  #7,$FF8800
  259.         MOVE.B  D1,$FF8802
  260.         RTS
  261.  
  262.  
  263. TOKE_TAB
  264.         DC.L    PAUSE,VIBE_0
  265.         DC.L    VIBE_1,VIBE_2
  266.         DC.L    SLIDE,GL_DN
  267.         DC.L    GL_UP,ENDING
  268.         DC.L    VIBE_SET,NZ_FREQ
  269.         DC.L    SQUARE,NOISE
  270.         DC.L    BOTH,TOGGLE
  271.         DC.L    CUTT
  272.  
  273.  
  274. CUTT    ADDQ.L  #4,A7
  275.         BRA     TURNOFF
  276.  
  277. ENDING  MOVE.L  $A(A0),D0
  278.         MOVEA.L 6(A0),A2
  279.         ADDA.L  D0,A2
  280.         ADDQ.L  #4,D0
  281.         MOVEA.L (A2),A1
  282.         TST.L   (A2)
  283.         BNE     SET_MEM
  284.         MOVEA.L 6(A0),A2
  285.         MOVEQ   #4,D0
  286.         MOVEA.L (A2),A1
  287.  
  288. SET_MEM MOVE.L  D0,$A(A0)
  289.         BRA     READ
  290.  
  291. NOISE   MOVE.B  $2D(A0),D0
  292.         MOVE.B  D0,D1
  293.         ANDI.B  #7,D0
  294.         MOVE.B  REG_7,D2
  295.         EOR.B   D2,D0
  296.         AND.B   D1,D0
  297.         EOR.B   D2,D0
  298.         MOVE.B  D0,REG_7
  299.         BRA     READ
  300.  
  301. SQUARE  MOVE.B  $2D(A0),D0
  302.         MOVE.B  D0,D1
  303.         ANDI.B  #$38,D0
  304.         MOVE.B  REG_7,D2
  305.         EOR.B   D2,D0
  306.         AND.B   D1,D0
  307.         EOR.B   D2,D0
  308.         MOVE.B  D0,REG_7
  309.         BRA     READ
  310.  
  311. BOTH    MOVE.B  $2D(A0),D0
  312.         EORI.B  #$FF,D0
  313.         MOVE.B  REG_7,D2
  314.         AND.B   D2,D0
  315.         AND.B   D0,REG_7
  316.         BRA     READ
  317.  
  318. SLIDE   CLR.W   $E(A0)
  319.         BSET    #2,0(A0)
  320.         MOVE.B  (A1)+,$18(A0)
  321.         MOVE.B  (A1)+,$19(A0)
  322.         BRA     READ
  323.  
  324. NZ_FREQ MOVE.B  (A1)+,NZ_F
  325.         BRA     READ
  326.  
  327. VIBE_SET
  328.         MOVE.B  (A1)+,$2A(A0)
  329.         MOVE.B  (A1),$29(A0)
  330.         MOVE.B  (A1)+,$2B(A0)
  331.         BRA     READ
  332.  
  333. GL_UP   BSET    #7,0(A0)
  334.  
  335. GL_DN   BSET    #3,0(A0)
  336.         BRA     READ
  337.  
  338. VIBE_0  CLR.B   $2C(A0)
  339.         BRA     READ
  340.  
  341. VIBE_1  MOVE.B  #$40,$2C(A0)
  342.         BRA     READ
  343.  
  344. VIBE_2  MOVE.B  #$C0,$2C(A0)
  345.         BRA     READ
  346.  
  347. TOGGLE  BSET    #1,0(A0)
  348.         BRA     READ
  349.  
  350. PAUSE   CLR.B   $1E(A0)
  351.         BRA     VALUED
  352.  
  353. MZ_CH   SUBQ.B  #1,$1B(A0)
  354.         BNE     GLISS_IT
  355.         CLR.B   0(A0)
  356.         MOVEA.L 2(A0),A1
  357.  
  358. READ    MOVEQ   #0,D0
  359.         MOVE.B  (A1)+,D0
  360.         BMI     EXTEND
  361.         MOVE.B  D0,$1D(A0)
  362.         MOVEA.L $24(A0),A2
  363.         MOVE.L  A2,$20(A0)
  364.         MOVE.B  (A2),$28(A0)
  365.         MOVE.B  (A2),$1E(A0)
  366.         MOVE.B  $1A(A0),$1F(A0)
  367.         BSET    #5,0(A0)
  368.  
  369. VALUED  MOVE.B  $1C(A0),$1B(A0)
  370.         MOVE.L  A1,2(A0)
  371.         RTS
  372.  
  373. GLISS_IT
  374.         BTST    #3,0(A0)
  375.         RTS
  376.         BTST    #7,0(A0)
  377.         BEQ     GL_DOWN
  378.         ADDQ.B  #1,$1D(A0)
  379.         RTS
  380.  
  381. GL_DOWN SUBQ.B  #1,$1D(A0)
  382.         RTS
  383.  
  384. EXTEND  CMP.B   #$B8,D0
  385.         BCS     TOKENS
  386.         ADDI.B  #$20,D0
  387.         BCS     LENGTH
  388.         ADDI.B  #$10,D0
  389.         BCS     ENVS
  390.         ADDI.B  #$10,D0
  391.         BCC     TEMPS
  392.         ASL.B   #2,D0
  393.         LEA     CH_TAB,A2
  394.         ADDA.L  D0,A2
  395.         MOVE.L  (A2),$14(A0)
  396.         MOVE.L  (A2),$10(A0)
  397.         BRA     READ
  398.  
  399. TEMPS   ADDI.B  #9,D0
  400.         MOVE.B  D0,NO_T
  401.         BRA     READ
  402.  
  403. LENGTH  ADDQ.B  #1,D0
  404.         MOVE.B  D0,$1C(A0)
  405.         BRA     READ
  406.  
  407. ENVS    ASL.W   #2,D0
  408.         LEA     EV_TAB,A2
  409.         MOVEA.L 0(A2,D0.W),A2
  410.         MOVE.L  A2,$24(A0)
  411.         MOVE.B  -1(A2),$1A(A0)
  412.         BRA     READ
  413.  
  414. TOKENS  ANDI.W  #$7F,D0        * HOPPAR TILL TOKENS-RUTINER
  415.         ASL.W   #2,D0
  416.         LEA     TOKE_TAB,A2
  417.         MOVEA.L 0(A2,D0.W),A2
  418.         JMP     (A2)
  419.  
  420.  
  421. MZ_50   MOVEQ   #0,D7
  422.         MOVE.B  0(A0),D7
  423.         BTST    #5,D7
  424.         BEQ     FORM
  425.         SUBQ.B  #1,$1F(A0)
  426.         BCC     EV_DELAY
  427.         MOVE.B  $1A(A0),$1F(A0)
  428.         MOVEA.L $20(A0),A2
  429.         CMPI.B  #$87,1(A2)
  430.         BEQ     EV_DELAY
  431.         ADDQ.L  #1,$20(A0)
  432.         MOVE.B  1(A2),$28(A0)
  433.  
  434. EV_DELAY
  435.         MOVE.B  $28(A0),$1E(A0)
  436.         BNE     FORM
  437.  
  438. FORM    MOVE.B  $1D(A0),D0
  439.         MOVEA.L $14(A0),A1
  440.         MOVE.B  (A1),D1
  441.         CMP.B   #$87,D1
  442.         BNE     CH_CALC
  443.         MOVEA.L $10(A0),A1
  444.         MOVE.B  (A1),D1
  445.  
  446. CH_CALC ADDQ.L  #1,A1
  447.         MOVE.L  A1,$14(A0)
  448.         ADD.B   D1,D0
  449.  
  450. PRODUCE LEA     NOTE_TAB,A1
  451.         ADD.B   D0,D0
  452.         MOVEQ   #0,D1
  453.         MOVE.B  D0,D1
  454.         ADDA.L  D1,A1
  455.         MOVE.W  (A1),D0
  456.         MOVE.B  $2C(A0),D6
  457.         BTST    #6,D6
  458.         BEQ     TWIGGLE
  459.         MOVE.B  D1,D5
  460.         MOVE.B  $29(A0),D4
  461.         LSL.B   #1,D4
  462.         MOVE.B  $2B(A0),D1
  463.         BTST    #7,D6
  464.         BEQ     VB_NOW
  465.         BTST    #0,D7
  466.         BNE     VB_SAME
  467.  
  468. VB_NOW  BTST    #5,D6
  469.         BNE     VB_UP
  470.         SUB.B   $2A(A0),D1
  471.         BCC     VB_REACH
  472.         BSET    #5,$2C(A0)
  473.         MOVEQ   #0,D1
  474.         BRA     VB_REACH
  475.  
  476. VB_UP   ADD.B   $2A(A0),D1
  477.         CMP.B   D4,D1
  478.         BCS     VB_REACH
  479.         BCLR    #5,$2C(A0)
  480.         MOVE.B  D4,D1
  481.  
  482. VB_REACH
  483.         MOVE.B  D1,$2B(A0)
  484.  
  485. VB_SAME LSR.B   #1,D4
  486.         SUB.B   D4,D1
  487.         BCC     WARBLE
  488.         SUBI.W  #$100,D1
  489.  
  490. WARBLE  ADDI.B  #$A0,D5
  491.         BCS     HI_VB
  492.  
  493. SHIFT_VB
  494.         LSL.W   #1,D1
  495.         ADDI.B  #$18,D5
  496.         BCC     SHIFT_VB
  497.  
  498. HI_VB   ADD.W   D1,D0
  499.  
  500. TWIGGLE EORI.B  #1,D7
  501.         MOVE.B  D7,0(A0)
  502.         BTST    #2,D7
  503.         BEQ     TG_FORM
  504.         MOVE.B  $19(A0),D4
  505.         SUBQ.B  #1,D4
  506.         BNE     SL_CNT
  507.         CLR.W   D6
  508.         MOVE.B  $18(A0),D6
  509.         BPL     SL_UP
  510.         ADDI.W  #$FF00,D6
  511.  
  512. SL_UP   ADD.W   $E(A0),D6
  513.         MOVE.W  D6,$E(A0)
  514.         ADD.W   D6,D0
  515.         BRA     TG_FORM
  516.  
  517. SL_CNT  MOVE.B  D4,$19(A0)
  518.  
  519. TG_FORM EORI.B  #$FF,D7
  520.         MOVE.B  REG_7,D3
  521.         ANDI.B  #3,D7
  522.         BNE     SET_7
  523.         MOVE.B  NZ_F,D3
  524.         EORI.B  #8,D3
  525.         MOVE.B  D3,NZ_FT
  526.         MOVE.B  #7,D3
  527.  
  528. SET_7   MOVE.B  (REGS+7),D2    * SÄTTER BRUS KANALER
  529.         EOR.B   D2,D3
  530.         AND.B   $2D(A0),D3
  531.         EOR.B   D3,(REGS+7)
  532.         MOVE.B  $1E(A0),D1    * SÄTTER VOLUME
  533.         RTS                             
  534.  
  535.  
  536. * LJUDCHIP DATA
  537.  
  538. REGS    DC.B    0    * Channel A fine tune    
  539.     DC.B    0    * Channel A course tune
  540.     DC.B    0    * Channel B fine tune
  541.     DC.B    0    * Channel B couse tune
  542.     DC.B    0    * Channel C fine tune
  543.     DC.B    0    * Channel C course tune
  544.     DC.B    0    * Noise generator control
  545.     DC.B    $3F    * Mixer control, I/O enable
  546.         DC.B    15    * Channel A amplitude
  547.     DC.B    15    * Channel B amplitude
  548.     DC.B    15    * Channel C amplitude
  549.     DC.B    0    * Envelope period tine tune
  550.     DC.B    0     * Envelope period course tune
  551. FREGS   DC.B    0    * Envelope shape
  552.  
  553.  
  554. * FREKVENS TABELL
  555.  
  556. NOTE_TAB
  557.         DC.W    $EEE,$E17,$D4D,$C8E
  558.         DC.W    $BD9,$B2F,$A8E,$9F7
  559.         DC.W    $967,$8E0,$861,$7E8
  560.         DC.W    $777,$70B,$6A6,$647
  561.         DC.W    $5EC,$597,$547,$4FB
  562.         DC.W    $4B3,$470,$430,$3F4
  563.         DC.W    $3BB,$385,$353,$323
  564.         DC.W    $2F6,$2CB,$2A3,$27D
  565.         DC.W    $259,$238,$218,$1FA
  566.         DC.W    $1DD,$1C2,$1A9,$191
  567.         DC.W    $17B,$165,$151,$13E
  568.         DC.W    $12C,$11C,$10C,$FD
  569.         DC.W    $EE,$E1,$D4,$C8
  570.         DC.W    $BD,$B2,$A8,$9F
  571.         DC.W    $96,$8E,$86,$7E
  572.         DC.W    $77,$70,$6A,$64
  573.         DC.W    $5E,$59,$54,$4F
  574.         DC.W    $4B,$47,$43,$3F
  575.         DC.W    $3B,$38,$35,$32
  576.         DC.W    $2F,$2C,$2A,$27
  577.         DC.W    $25,$23,$21,$1F
  578.         DC.W    $1D,$1C,$1A,$19
  579.         DC.W    $17,$16,$15,$13
  580.         DC.W    $12,$11,$10,$F
  581.  
  582.  
  583. * CHANGE DATA
  584.  
  585. CH_TAB  DC.L    CH_0,CH_1,CH_2,CH_3
  586. CH_0    DC.B    0,$87
  587. CH_1    DC.B    0,2,7,$87
  588. CH_2    DC.B    0,3,7,$87
  589. CH_3    DC.B    0,5,7,$87
  590.  
  591. * ENVELOPE DATA
  592.  
  593. EV_TAB  DC.L    EV_0        * Envelope Channel A
  594.     DC.L    EV_1        * Envelope Channel B
  595.         DC.L    EV_2         * Envelope Channel C
  596.         DC.L    EV_3        * Envelope Channel C
  597.     DC.B    1
  598. EV_0    DC.B    15,14,13,12,11,10,$87,6
  599. EV_1    DC.B    14,13,12,11,10,9,$87,6
  600. EV_2    DC.B    15,14,13,12,11,10,$87,6
  601. EV_3    DC.B    15,14,13,12,11,10,14
  602.         DC.B    13,9,12,10,8,11,$87,0
  603. EV_4    DC.B    0,$87            * STÄNG AV KANAL
  604.  
  605. MONOFF  DC.B    0,0    * 1 = MELODI PÅ, 0 = MELODI AV
  606. TEMPD0  DC.B    0,0    
  607.  
  608.  
  609. * MELODI DATA
  610. *    KANAL:    A      B      C     
  611.  
  612. STADS   DC.L    TUNEA1,TUNEA2,TUNEA3
  613.  
  614. TUNEA1    DC.L    A1P1
  615.     DC.L    0
  616.  
  617. TUNEA2    DC.L    A2P1,A2P1,A2P2,A2P1,A2P3
  618.         DC.L    0
  619.  
  620. TUNEA3    DC.L    A3P1,A3P1,A3P2,A3P1,A3P3
  621.     DC.L    0
  622.  
  623. * NOT DATA
  624.  
  625. A1P1    DC.B    $D0,$C2,$8A
  626.     DC.B    $E3,$8B,$89,20,0
  627.     DC.B    $E3,$8A,$84,15,5,48
  628.     DC.B    $E1,$8C,$89,10,$84,15,5,60
  629.     DC.B    $E5,$8A,$84,15,5,48
  630.     DC.B    $E3,$8C,$89,20,$84,15,5,48
  631.     DC.B    $E1,$8A,$84,15,5,48
  632.     DC.B    $E1,$84,15,5,48
  633.     DC.B    $E3,$8C,$89,10,$84,15,5,60
  634.     DC.B    $E1,$89,20,$84,15,5,48
  635.     DC.B    $E1,$84,15,5,48
  636.     DC.B    $E3,$84,15,5,48
  637.     DC.B    $E1,$8A,$84,15,5,48
  638.     DC.B    $E1,$84,15,5,48
  639.     DC.B    $E3,$8C,$89,10,$84,15,5,60
  640.     DC.B    $E1,$89,20,$84,15,5,48
  641.     DC.B    $E5,$84,15,5,48
  642.     DC.B    $C0,$E0,$84,40,1,$85,$89,10,$8C,70
  643.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,70
  644.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,70
  645.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,70
  646.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,60
  647.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,60
  648.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,60
  649.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,60
  650.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,50
  651.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,50
  652.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,50
  653.     DC.B    $E0,$84,40,1,$85,$89,10,$8C,50
  654.     DC.B    $87
  655.  
  656. ********
  657.  
  658. A2P1    DC.B    $D1,$C0,$8A
  659.     DC.B    $E3,24,36,24,36,24,36,24,36
  660.     DC.B    20,32,20,32,19,31,19,31
  661.     DC.B    $E3,24,36,24,36,24,36,24,36
  662.     DC.B    20,32,20,32,22,34,22,34
  663.     DC.B    17,29,17,29,17,29,17,29
  664.     DC.B    20,32,20,32,20,32,20,32
  665.     DC.B    19,31,19,31,19,31,19,31
  666.     DC.B    20,32,20,32,22,34,22,34
  667.     DC.B    $87
  668.  
  669. A2P2    DC.B    24,36,24,36,24,36,24,36
  670.     DC.B    20,32,20,32,22,34,22,34
  671.     DC.B    24,36,24,36,24,36,24,36
  672.     DC.B    20,32,20,32,22,34,22,34
  673.     DC.B    24,36,24,36,24,36,24,36
  674.     DC.B    20,32,20,32,22,34,22,34
  675.     DC.B    24,36,24,36,24,36,24,36
  676.     DC.B    20,32,20,32,22,34,22,34
  677.     DC.B    $87
  678.  
  679. A2P3    DC.B    17,29,17,29,17,29,17,29
  680.     DC.B    20,32,20,32,20,32,20,32
  681.     DC.B    24,36,24,36,24,36,24,36
  682.     DC.B    24,36,24,36,24,36,24,36
  683.     DC.B    17,29,17,29,17,29,17,29
  684.     DC.B    19,31,19,31,19,31,19,31
  685.     DC.B    $87
  686. ********
  687.  
  688. A3P1    DC.B    $BA,$D2,$C0,$8A,$82,$88,3,2
  689.     DC.B    $E3,$80,48,$E1,46,$E5,48,$E7,51,48,$E3
  690.     DC.B    46,48,48,$E1,46,$E5,$84,2,1,$85,48,$EB,$80
  691.     DC.B    $E3,$80,48,$E1,46,$E5,48,$E7,51,48,$E3
  692.     DC.B    51,53,53,$E1,51,$E5,$84,2,1,$85,55,$EB,$80
  693.     DC.B    $E3,$80,48,$E1,46,$E5,48,$E7,51,48,$E3
  694.     DC.B    46,48,48,$E1,46,$E5,$84,2,1,$85,48,$EB,$80
  695.     DC.B    $E3,$80,48,$E1,46,$E5,48,$E7,51,48,$E3
  696.     DC.B    51,53,53,$E1,51,$E5,$84,2,1,$85,55,$EB,$80
  697.     DC.B    $87
  698.  
  699. A3P2    DC.B    $C2,$E3,48,48,48,$E1,$C1,48,$C2,48,$EF,$80
  700.     DC.B    $C2,$E3,48,48,48,$E1,$C1,48,48,$EF,$80
  701.     DC.B    $C2,$E3,48,48,48,$E1,$C1,48,$C2,48,$EF,$80
  702.     DC.B    $C2,$E3,48,$C3,48,48,$E1,$C2,48,$C3,48,$EF,$80
  703.     DC.B    $C2,$E3,48,48,48,$E1,$C1,48,$C2,48,$EF,$80
  704.     DC.B    $C2,$E3,48,48,48,$E1,$C1,48,48,$EF,$80
  705.     DC.B    $C2,$E3,48,48,48,$E1,$C1,48,$C2,48,$EF,$80
  706.     DC.B    $C2,$E3,48,$C3,48,48,$E1,$C2,48,$C3,48,$EF,$80
  707.     DC.B    $87
  708.  
  709. A3P3    DC.B    $C0
  710.     DC.B    $E3,48,46,48,$E7,51
  711.     DC.B    $E3,48,51,53
  712.     DC.B    $E1,53,51,53,55,53,51,48,46
  713.     DC.B    48,51,53,55,53,51,48,51
  714.     DC.B    $EF,60
  715.     DC.B    $84,2,1,$85,60
  716.     DC.B    $80
  717.     DC.B    $80
  718.     DC.B    $E3,48,46,48,$E7,51
  719.     DC.B    $E3,48,51,53
  720.     DC.B    $E1,53,51,53,55,53,51,48,46
  721.     DC.B    48,51,53,55,53,51,48,51
  722.     DC.B    $87